home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Dec / di9812me / PluginSample / 3 / plugin3 / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-05-26  |  577 b   |  30 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses Dialogs, Menus, classes;
  6.  
  7.     procedure DescribePlugin(var Desc: string); export; stdcall;
  8.     procedure InitPluginEvents(lstResize: TList); export; stdcall;
  9.     procedure AlterMinTrackSize(var x, y: integer); stdcall;
  10.  
  11. implementation
  12.  
  13. procedure DescribePlugin(var Desc: string);
  14. begin
  15.     Desc := 'Test plugin 3 - MinMax';
  16. end;
  17.  
  18. procedure InitPluginEvents(lstResize: TList);
  19. begin
  20.     lstResize.Add(@AlterMinTrackSize);
  21. end;
  22.  
  23. procedure AlterMinTrackSize(var x, y: integer);
  24. begin
  25.     x := 270;
  26.     y := 220;
  27. end;
  28.  
  29. end.
  30.